home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / setf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  44.5 KB  |  2,082 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "setf.h"
  4. init_setf(){do_init(VV);}
  5. /*    macro definition for DEFSETF    */
  6.  
  7. static L1()
  8. {register object *base=vs_base;
  9.     register object *sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     check_arg(2);
  12.     vs_top=sup;
  13.     {object V1=base[0]->c.c_cdr;
  14.     if(endp(V1))invalid_macro_call();
  15.     base[2]= (V1->c.c_car);
  16.     V1=V1->c.c_cdr;
  17.     base[3]= V1;}
  18.     if((car(base[3]))==Cnil){
  19.     goto T2;}
  20.     if(type_of(car(base[3]))==t_symbol){
  21.     goto T1;}
  22.     base[4]= car(base[3]);
  23.     vs_top=(vs_base=base+4)+1;
  24.     Lfunctionp();
  25.     vs_top=sup;
  26.     if((vs_base[0])==Cnil){
  27.     goto T2;}
  28. T1:;
  29.     V2= list(2,VV[3],base[2]);
  30.     V3= list(4,VV[2],/* INLINE-ARGS */V2,list(2,VV[3],car(base[3])),VV[4]);
  31.     V4= list(3,VV[5],list(2,VV[3],base[2]),VV[6]);
  32.     V5= list(3,VV[5],list(2,VV[3],base[2]),VV[7]);
  33.     V6= list(2,VV[3],base[2]);
  34.     if(endp(cdr(base[3]))){
  35.     goto T11;}
  36.     if(type_of(cadr(base[3]))==t_string){
  37.     goto T13;}
  38.     base[4]= VV[8];
  39.     vs_top=(vs_base=base+4)+1;
  40.     Lerror();
  41.     vs_top=sup;
  42. T13:;
  43.     if(endp(cddr(base[3]))){
  44.     goto T17;}
  45.     base[4]= VV[9];
  46.     vs_top=(vs_base=base+4)+1;
  47.     Lerror();
  48.     vs_top=sup;
  49. T17:;
  50.     V7= cadr(base[3]);
  51.     goto T9;
  52. T11:;
  53.     V7= Cnil;
  54. T9:;
  55.     V8= list(4,VV[2],/* INLINE-ARGS */V6,V7,VV[10]);
  56.     base[4]= list(7,VV[0],VV[1],/* INLINE-ARGS */V3,/* INLINE-ARGS */V4,/* INLINE-ARGS */V5,/* INLINE-ARGS */V8,list(2,VV[3],base[2]));
  57.     vs_top=(vs_base=base+4)+1;
  58.     return;
  59. T2:;
  60.     base[4]= cadr(base[3]);
  61.     vs_top=(vs_base=base+4)+1;
  62.     Llist_length();
  63.     vs_top=sup;
  64.     V9= vs_base[0];
  65.     if(number_compare(V9,small_fixnum(1))==0){
  66.     goto T21;}
  67.     base[4]= VV[11];
  68.     vs_top=(vs_base=base+4)+1;
  69.     Lerror();
  70.     vs_top=sup;
  71. T21:;
  72.     V10= list(2,VV[3],base[2]);
  73.     V11= list(4,VV[2],/* INLINE-ARGS */V10,list(2,VV[3],base[3]),VV[13]);
  74.     V12= list(3,VV[5],list(2,VV[3],base[2]),VV[14]);
  75.     V13= list(3,VV[5],list(2,VV[3],base[2]),VV[15]);
  76.     V14= list(2,VV[3],base[2]);
  77.     V15= (*(LnkLI93))(cddr(base[3]));
  78.     V16= list(4,VV[2],/* INLINE-ARGS */V14,/* INLINE-ARGS */V15,VV[16]);
  79.     base[4]= list(7,VV[0],VV[12],/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,/* INLINE-ARGS */V16,list(2,VV[3],base[2]));
  80.     vs_top=(vs_base=base+4)+1;
  81.     return;
  82. }
  83. /*    macro definition for DEFINE-SETF-METHOD    */
  84.  
  85. static L2()
  86. {register object *base=vs_base;
  87.     register object *sup=base+VM2; VC2
  88.     vs_reserve(VM2);
  89.     check_arg(2);
  90.     vs_top=sup;
  91.     {object V17=base[0]->c.c_cdr;
  92.     if(endp(V17))invalid_macro_call();
  93.     base[2]= (V17->c.c_car);
  94.     V17=V17->c.c_cdr;
  95.     base[3]= V17;
  96.     base[4]= Cnil;
  97.     base[5]= Cnil;
  98.     base[6]= Cnil;}
  99.     base[7]= car(base[3]);
  100.     vs_top=(vs_base=base+7)+1;
  101.     (void) (*Lnk94)();
  102.     if(vs_base<vs_top){
  103.     base[4]= vs_base[0];
  104.     vs_base++;
  105.     }else{
  106.     base[4]= Cnil;}
  107.     if(vs_base<vs_top){
  108.     base[5]= vs_base[0];
  109.     }else{
  110.     base[5]= Cnil;}
  111.     vs_top=sup;
  112.     base[6]= cdr(base[3]);
  113.     if((base[5])==Cnil){
  114.     goto T37;}
  115.     base[4]= make_cons(base[5],base[4]);
  116.     goto T35;
  117. T37:;
  118.     vs_base=vs_top;
  119.     Lgensym();
  120.     vs_top=sup;
  121.     V18= vs_base[0];
  122.     base[4]= make_cons(V18,base[4]);
  123.     V19= list(2,VV[17],list(2,VV[18],car(base[4])));
  124.     base[6]= make_cons(/* INLINE-ARGS */V19,base[6]);
  125. T35:;
  126.     V20= list(2,VV[3],base[2]);
  127.     V21= list(4,VV[2],/* INLINE-ARGS */V20,list(2,VV[20],listA(3,VV[21],base[4],base[6])),VV[22]);
  128.     V22= list(3,VV[5],list(2,VV[3],base[2]),VV[23]);
  129.     V23= list(3,VV[5],list(2,VV[3],base[2]),VV[24]);
  130.     V24= list(2,VV[3],base[2]);
  131.     V25= (*(LnkLI93))(cdr(base[3]));
  132.     V26= list(4,VV[2],/* INLINE-ARGS */V24,/* INLINE-ARGS */V25,VV[25]);
  133.     base[7]= list(7,VV[0],VV[19],/* INLINE-ARGS */V21,/* INLINE-ARGS */V22,/* INLINE-ARGS */V23,/* INLINE-ARGS */V26,list(2,VV[3],base[2]));
  134.     vs_top=(vs_base=base+7)+1;
  135.     return;
  136. }
  137. /*    function definition for GET-SETF-METHOD    */
  138.  
  139. static L3()
  140. {register object *base=vs_base;
  141.     register object *sup=base+VM3; VC3
  142.     vs_reserve(VM3);
  143.     {object V27;
  144.     object V28;
  145.     if(vs_top-vs_base<1) too_few_arguments();
  146.     if(vs_top-vs_base>2) too_many_arguments();
  147.     V27=(base[0]);
  148.     vs_base=vs_base+1;
  149.     if(vs_base>=vs_top){vs_top=sup;goto T44;}
  150.     V28=(base[1]);
  151.     vs_top=sup;
  152.     goto T45;
  153. T44:;
  154.     V28= Cnil;
  155. T45:;
  156.     {object V29;
  157.     object V30;
  158.     object V31;
  159.     object V32;
  160.     object V33;
  161.     base[2]= (V27);
  162.     base[3]= (V28);
  163.     vs_top=(vs_base=base+2)+2;
  164.     (void) (*Lnk95)();
  165.     if(vs_base>=vs_top){vs_top=sup;goto T50;}
  166.     V29= vs_base[0];
  167.     vs_base++;
  168.     if(vs_base>=vs_top){vs_top=sup;goto T51;}
  169.     V30= vs_base[0];
  170.     vs_base++;
  171.     if(vs_base>=vs_top){vs_top=sup;goto T52;}
  172.     V31= vs_base[0];
  173.     vs_base++;
  174.     if(vs_base>=vs_top){vs_top=sup;goto T53;}
  175.     V32= vs_base[0];
  176.     vs_base++;
  177.     if(vs_base>=vs_top){vs_top=sup;goto T54;}
  178.     V33= vs_base[0];
  179.     vs_top=sup;
  180.     goto T55;
  181. T50:;
  182.     V29= Cnil;
  183. T51:;
  184.     V30= Cnil;
  185. T52:;
  186.     V31= Cnil;
  187. T53:;
  188.     V32= Cnil;
  189. T54:;
  190.     V33= Cnil;
  191. T55:;
  192.     base[2]= (V31);
  193.     vs_top=(vs_base=base+2)+1;
  194.     Llist_length();
  195.     vs_top=sup;
  196.     V34= vs_base[0];
  197.     if(number_compare(V34,small_fixnum(1))==0){
  198.     goto T56;}
  199.     base[2]= VV[26];
  200.     vs_top=(vs_base=base+2)+1;
  201.     Lerror();
  202.     vs_top=sup;
  203. T56:;
  204.     base[2]= (V29);
  205.     base[3]= (V30);
  206.     base[4]= (V31);
  207.     base[5]= (V32);
  208.     base[6]= (V33);
  209.     vs_top=(vs_base=base+2)+5;
  210.     return;}
  211.     }
  212. }
  213. /*    function definition for GET-SETF-METHOD-MULTIPLE-VALUE    */
  214.  
  215. static L4()
  216. {register object *base=vs_base;
  217.     register object *sup=base+VM4; VC4
  218.     vs_reserve(VM4);
  219.     {register object V35;
  220.     register object V36;
  221.     if(vs_top-vs_base<1) too_few_arguments();
  222.     if(vs_top-vs_base>2) too_many_arguments();
  223.     V35=(base[0]);
  224.     vs_base=vs_base+1;
  225.     if(vs_base>=vs_top){vs_top=sup;goto T67;}
  226.     V36=(base[1]);
  227.     vs_top=sup;
  228.     goto T68;
  229. T67:;
  230.     V36= Cnil;
  231. T68:;
  232.     {register object V37;
  233.     V37= Cnil;
  234.     if(!(type_of((V35))==t_symbol)){
  235.     goto T72;}
  236.     {object V38;
  237.     vs_base=vs_top;
  238.     Lgensym();
  239.     vs_top=sup;
  240.     V38= vs_base[0];
  241.     base[2]= Cnil;
  242.     base[3]= Cnil;
  243.     base[4]= make_cons((V38),Cnil);
  244.     base[5]= list(3,VV[27],(V35),(V38));
  245.     base[6]= (V35);
  246.     vs_top=(vs_base=base+2)+5;
  247.     return;}
  248. T72:;
  249.     if(!(type_of((V35))==t_cons)){
  250.     goto T80;}
  251.     if(type_of(car((V35)))==t_symbol){
  252.     goto T81;}
  253. T80:;
  254.     base[2]= VV[28];
  255.     base[3]= (V35);
  256.     vs_top=(vs_base=base+2)+2;
  257.     Lerror();
  258.     return;
  259. T81:;
  260.     if(((V36))==Cnil){
  261.     goto T88;}
  262.     {register object x= car((V35)),V39= cadr((V36));
  263.     while(!endp(V39))
  264.     if(type_of(V39->c.c_car)==t_cons &&eql(x,V39->c.c_car->c.c_car)){
  265.     V37= (V39->c.c_car);
  266.     goto T92;
  267.     }else V39=V39->c.c_cdr;
  268.     V37= Cnil;}
  269. T92:;
  270.     if(((V37))==Cnil){
  271.     goto T88;}
  272.     base[2]= (V35);
  273.     base[3]= (V36);
  274.     vs_top=(vs_base=base+2)+2;
  275.     Lmacroexpand();
  276.     vs_top=sup;
  277.     V37= vs_base[0];
  278.     if(!(((V35))==((V37)))){
  279.     goto T97;}
  280.     base[2]= VV[29];
  281.     base[3]= (V35);
  282.     vs_top=(vs_base=base+2)+2;
  283.     Lerror();
  284.     vs_top=sup;
  285. T97:;
  286.     base[2]= (V37);
  287.     base[3]= (V36);
  288.     vs_top=(vs_base=base+2)+2;
  289.     (void) (*Lnk95)();
  290.     return;
  291. T88:;
  292.     if((get(car((V35)),VV[30],Cnil))==Cnil){
  293.     goto T105;}
  294.     base[2]= get(car((V35)),VV[30],Cnil);
  295.     base[3]= (V36);
  296.     {object V40;
  297.     V40= cdr((V35));
  298.      vs_top=base+4;
  299.      while(!endp(V40))
  300.      {vs_push(car(V40));V40=cdr(V40);}
  301.     vs_base=base+3;}
  302.     super_funcall_no_event(base[2]);
  303.     return;
  304. T105:;
  305.     if((get(car((V35)),VV[31],Cnil))!=Cnil){
  306.     goto T110;}
  307.     V37= get(car((V35)),VV[32],Cnil);
  308.     if(((V37))==Cnil){
  309.     goto T111;}
  310. T110:;
  311.     {register object V41;
  312.     object V42;
  313.     {object V43;
  314.     object V44= cdr((V35));
  315.     if(endp(V44)){
  316.     V41= Cnil;
  317.     goto T116;}
  318.     base[2]=V43=MMcons(Cnil,Cnil);
  319. T117:;
  320.     vs_base=vs_top;
  321.     Lgensym();
  322.     vs_top=sup;
  323.     (V43->c.c_car)= vs_base[0];
  324.     if(endp(V44=MMcdr(V44))){
  325.     V41= base[2];
  326.     goto T116;}
  327.     V43=MMcdr(V43)=MMcons(Cnil,Cnil);
  328.     goto T117;}
  329. T116:;
  330.     vs_base=vs_top;
  331.     Lgensym();
  332.     vs_top=sup;
  333.     V42= vs_base[0];
  334.     base[2]= (V41);
  335.     base[3]= cdr((V35));
  336.     base[4]= make_cons((V42),Cnil);
  337.     if(((V37))==Cnil){
  338.     goto T125;}
  339.     base[5]= (*(LnkLI96))(car((V41)),car((V37)),cdr((V37)),(V42));
  340.     goto T123;
  341. T125:;
  342.     V46= get(car((V35)),VV[31],Cnil);
  343.     V47= make_cons((V42),Cnil);
  344.     V48= append((V41),/* INLINE-ARGS */V47);
  345.     base[5]= make_cons(V46,/* INLINE-ARGS */V48);
  346. T123:;
  347.     base[6]= make_cons(car((V35)),(V41));
  348.     vs_top=(vs_base=base+2)+5;
  349.     return;}
  350. T111:;
  351.     if((get(car((V35)),VV[33],Cnil))==Cnil){
  352.     goto T130;}
  353.     {object V49;
  354.     object V50;
  355.     object V51;
  356.     object V52;
  357.     {object V53;
  358.     object V54= cdr((V35));
  359.     if(endp(V54)){
  360.     V49= Cnil;
  361.     goto T132;}
  362.     base[6]=V53=MMcons(Cnil,Cnil);
  363. T133:;
  364.     vs_base=vs_top;
  365.     Lgensym();
  366.     vs_top=sup;
  367.     (V53->c.c_car)= vs_base[0];
  368.     if(endp(V54=MMcdr(V54))){
  369.     V49= base[6];
  370.     goto T132;}
  371.     V53=MMcdr(V53)=MMcons(Cnil,Cnil);
  372.     goto T133;}
  373. T132:;
  374.     vs_base=vs_top;
  375.     Lgensym();
  376.     vs_top=sup;
  377.     V50= vs_base[0];
  378.     V51= get(car((V35)),VV[33],Cnil);
  379.     V56= car((V51));
  380.     V52= list(3,VV[21],/* INLINE-ARGS */V56,list(2,VV[20],listA(3,VV[21],cadr((V51)),cddr((V51)))));
  381.     base[6]= (V49);
  382.     base[7]= cdr((V35));
  383.     base[8]= make_cons((V50),Cnil);
  384.     base[11]= (V52);
  385.     {object V57;
  386.     V57= (V49);
  387.      vs_top=base+12;
  388.      while(!endp(V57))
  389.      {vs_push(car(V57));V57=cdr(V57);}
  390.     vs_base=base+12;}
  391.     super_funcall_no_event(base[11]);
  392.     vs_top=sup;
  393.     base[10]= vs_base[0];
  394.     base[11]= (V50);
  395.     vs_top=(vs_base=base+11)+1;
  396.     super_funcall_no_event(base[10]);
  397.     vs_top=sup;
  398.     base[9]= vs_base[0];
  399.     base[10]= make_cons(car((V35)),(V49));
  400.     vs_top=(vs_base=base+6)+5;
  401.     return;}
  402. T130:;
  403.     base[2]= car((V35));
  404.     vs_top=(vs_base=base+2)+1;
  405.     Lmacro_function();
  406.     vs_top=sup;
  407.     if((vs_base[0])==Cnil){
  408.     goto T148;}
  409.     base[3]= (V35);
  410.     vs_top=(vs_base=base+3)+1;
  411.     Lmacroexpand();
  412.     vs_top=sup;
  413.     base[2]= vs_base[0];
  414.     vs_top=(vs_base=base+2)+1;
  415.     (void) (*Lnk95)();
  416.     return;
  417. T148:;
  418.     base[2]= VV[34];
  419.     base[3]= (V35);
  420.     vs_top=(vs_base=base+2)+2;
  421.     Lerror();
  422.     return;}
  423.     }
  424. }
  425. /*    macro definition for PUT-AUX    */
  426.  
  427. static L5()
  428. {register object *base=vs_base;
  429.     register object *sup=base+VM5; VC5
  430.     vs_reserve(VM5);
  431.     check_arg(2);
  432.     vs_top=sup;
  433.     {object V58=base[0]->c.c_cdr;
  434.     if(endp(V58))invalid_macro_call();
  435.     base[2]= (V58->c.c_car);
  436.     V58=V58->c.c_cdr;
  437.     if(endp(V58))invalid_macro_call();
  438.     base[3]= (V58->c.c_car);
  439.     V58=V58->c.c_cdr;
  440.     base[4]= V58;}
  441.     base[5]= base[4];
  442.     vs_top=(vs_base=base+5)+1;
  443.     Llast();
  444.     vs_top=sup;
  445.     V59= vs_base[0];
  446.     base[5]= list(4,VV[35],base[2],base[3],car(V59));
  447.     vs_top=(vs_base=base+5)+1;
  448.     return;
  449. }
  450. /*    function definition for G1057    */
  451.  
  452. static L6()
  453. {register object *base=vs_base;
  454.     register object *sup=base+VM6; VC6
  455.     vs_reserve(VM6);
  456.     {object V60;
  457.     object V61;
  458.     object V62;
  459.     object V63;
  460.     if(vs_top-vs_base<3) too_few_arguments();
  461.     if(vs_top-vs_base>4) too_many_arguments();
  462.     V60=(base[0]);
  463.     V61=(base[1]);
  464.     V62=(base[2]);
  465.     vs_base=vs_base+3;
  466.     if(vs_base>=vs_top){vs_top=sup;goto T157;}
  467.     V63=(base[3]);
  468.     vs_top=sup;
  469.     goto T158;
  470. T157:;
  471.     V63= Cnil;
  472. T158:;
  473.     {object V64;
  474.     object V65;
  475.     object V66;
  476.     object V67;
  477.     object V68;
  478.     base[4]= (V61);
  479.     base[5]= (V60);
  480.     vs_top=(vs_base=base+4)+2;
  481.     (void) (*Lnk97)();
  482.     if(vs_base>=vs_top){vs_top=sup;goto T163;}
  483.     V64= vs_base[0];
  484.     vs_base++;
  485.     if(vs_base>=vs_top){vs_top=sup;goto T164;}
  486.     V65= vs_base[0];
  487.     vs_base++;
  488.     if(vs_base>=vs_top){vs_top=sup;goto T165;}
  489.     V66= vs_base[0];
  490.     vs_base++;
  491.     if(vs_base>=vs_top){vs_top=sup;goto T166;}
  492.     V67= vs_base[0];
  493.     vs_base++;
  494.     if(vs_base>=vs_top){vs_top=sup;goto T167;}
  495.     V68= vs_base[0];
  496.     vs_top=sup;
  497.     goto T168;
  498. T163:;
  499.     V64= Cnil;
  500. T164:;
  501.     V65= Cnil;
  502. T165:;
  503.     V66= Cnil;
  504. T166:;
  505.     V67= Cnil;
  506. T167:;
  507.     V68= Cnil;
  508. T168:;
  509.     {object V69;
  510.     object V70;
  511.     vs_base=vs_top;
  512.     Lgensym();
  513.     vs_top=sup;
  514.     V69= vs_base[0];
  515.     vs_base=vs_top;
  516.     Lgensym();
  517.     vs_top=sup;
  518.     V70= vs_base[0];
  519.     V71= make_cons((V69),Cnil);
  520.     base[4]= append((V64),/* INLINE-ARGS */V71);
  521.     V72= make_cons((V62),Cnil);
  522.     base[5]= append((V65),/* INLINE-ARGS */V72);
  523.     base[6]= make_cons((V70),Cnil);
  524.     V73= car((V66));
  525.     V74= list(2,/* INLINE-ARGS */V73,list(4,VV[37],(V68),(V70),(V69)));
  526.     base[7]= list(4,VV[36],make_cons(/* INLINE-ARGS */V74,Cnil),(V67),(V70));
  527.     base[8]= list(4,VV[38],(V68),(V69),(V63));
  528.     vs_top=(vs_base=base+4)+5;
  529.     return;}}
  530.     }
  531. }
  532. /*    function definition for G1059    */
  533.  
  534. static L7()
  535. {register object *base=vs_base;
  536.     register object *sup=base+VM7; VC7
  537.     vs_reserve(VM7);
  538.     {object V75;
  539.     object V76;
  540.     object V77;
  541.     check_arg(3);
  542.     V75=(base[0]);
  543.     V76=(base[1]);
  544.     V77=(base[2]);
  545.     vs_top=sup;
  546. TTL:;
  547.     {object V78;
  548.     object V79;
  549.     object V80;
  550.     object V81;
  551.     object V82;
  552.     base[3]= (V77);
  553.     base[4]= (V75);
  554.     vs_top=(vs_base=base+3)+2;
  555.     (void) (*Lnk97)();
  556.     if(vs_base>=vs_top){vs_top=sup;goto T179;}
  557.     V78= vs_base[0];
  558.     vs_base++;
  559.     if(vs_base>=vs_top){vs_top=sup;goto T180;}
  560.     V79= vs_base[0];
  561.     vs_base++;
  562.     if(vs_base>=vs_top){vs_top=sup;goto T181;}
  563.     V80= vs_base[0];
  564.     vs_base++;
  565.     if(vs_base>=vs_top){vs_top=sup;goto T182;}
  566.     V81= vs_base[0];
  567.     vs_base++;
  568.     if(vs_base>=vs_top){vs_top=sup;goto T183;}
  569.     V82= vs_base[0];
  570.     vs_top=sup;
  571.     goto T184;
  572. T179:;
  573.     V78= Cnil;
  574. T180:;
  575.     V79= Cnil;
  576. T181:;
  577.     V80= Cnil;
  578. T182:;
  579.     V81= Cnil;
  580. T183:;
  581.     V82= Cnil;
  582. T184:;
  583.     {object V83;
  584.     vs_base=vs_top;
  585.     Lgensym();
  586.     vs_top=sup;
  587.     V83= vs_base[0];
  588.     base[3]= (V78);
  589.     base[4]= (V79);
  590.     base[5]= make_cons((V83),Cnil);
  591.     V84= car((V80));
  592.     V85= list(2,/* INLINE-ARGS */V84,list(3,VV[39],(V76),(V83)));
  593.     base[6]= list(3,VV[36],make_cons(/* INLINE-ARGS */V85,Cnil),(V81));
  594.     base[7]= list(3,VV[39],(V76),(V82));
  595.     vs_top=(vs_base=base+3)+5;
  596.     return;}}
  597.     }
  598. }
  599. /*    function definition for G1061    */
  600.  
  601. static L8()
  602. {register object *base=vs_base;
  603.     register object *sup=base+VM8; VC8
  604.     vs_reserve(VM8);
  605.     {object V86;
  606.     register object V87;
  607.     object V88;
  608.     if(vs_top-vs_base<2) too_few_arguments();
  609.     V86=(base[0]);
  610.     V87=(base[1]);
  611.     vs_base=vs_base+2;
  612.     vs_top[0]=Cnil;
  613.     {object *p=vs_top;
  614.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  615.     V88=(base[2]);
  616.     vs_top=sup;
  617.     if(!(type_of((V87))==t_cons)){
  618.     goto T192;}
  619.     if((car((V87)))==(VV[20])){
  620.     goto T195;}
  621.     if(!((car((V87)))==(VV[3]))){
  622.     goto T192;}
  623. T195:;
  624.     if(!(type_of(cadr((V87)))==t_symbol)){
  625.     goto T192;}
  626.     if((cddr((V87)))==Cnil){
  627.     goto T191;}
  628. T192:;
  629.     base[3]= VV[40];
  630.     base[4]= (V87);
  631.     vs_top=(vs_base=base+3)+2;
  632.     Lerror();
  633.     vs_top=sup;
  634. T191:;
  635.     {register object V89;
  636.     object V90;
  637.     object V91;
  638.     register object V92;
  639.     object V93;
  640.     base[3]= make_cons(cadr((V87)),(V88));
  641.     base[4]= (V86);
  642.     vs_top=(vs_base=base+3)+2;
  643.     (void) (*Lnk97)();
  644.     if(vs_base>=vs_top){vs_top=sup;goto T207;}
  645.     V89= vs_base[0];
  646.     vs_base++;
  647.     if(vs_base>=vs_top){vs_top=sup;goto T208;}
  648.     V90= vs_base[0];
  649.     vs_base++;
  650.     if(vs_base>=vs_top){vs_top=sup;goto T209;}
  651.     V91= vs_base[0];
  652.     vs_base++;
  653.     if(vs_base>=vs_top){vs_top=sup;goto T210;}
  654.     V92= vs_base[0];
  655.     vs_base++;
  656.     if(vs_base>=vs_top){vs_top=sup;goto T211;}
  657.     V93= vs_base[0];
  658.     vs_top=sup;
  659.     goto T212;
  660. T207:;
  661.     V89= Cnil;
  662. T208:;
  663.     V90= Cnil;
  664. T209:;
  665.     V91= Cnil;
  666. T210:;
  667.     V92= Cnil;
  668. T211:;
  669.     V93= Cnil;
  670. T212:;
  671.     base[3]= (V92);
  672.     vs_top=(vs_base=base+3)+1;
  673.     Llast();
  674.     vs_top=sup;
  675.     V94= vs_base[0];
  676.     V95= car(V94);
  677.     base[3]= (V89);
  678.     vs_top=(vs_base=base+3)+1;
  679.     Llast();
  680.     vs_top=sup;
  681.     V96= vs_base[0];
  682.     if(!((/* INLINE-ARGS */V95)==(car(V96)))){
  683.     goto T214;}
  684.     base[3]= (V89);
  685.     base[4]= (V90);
  686.     base[5]= (V91);
  687.     base[6]= listA(3,VV[41],list(2,VV[20],car((V92))),cdr((V92)));
  688.     base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93)));
  689.     vs_top=(vs_base=base+3)+5;
  690.     return;
  691. T214:;
  692.     base[4]= (V92);
  693.     vs_top=(vs_base=base+4)+1;
  694.     Lbutlast();
  695.     vs_top=sup;
  696.     base[3]= vs_base[0];
  697.     vs_top=(vs_base=base+3)+1;
  698.     Llast();
  699.     vs_top=sup;
  700.     V97= vs_base[0];
  701.     V98= car(V97);
  702.     base[3]= (V89);
  703.     vs_top=(vs_base=base+3)+1;
  704.     Llast();
  705.     vs_top=sup;
  706.     V99= vs_base[0];
  707.     if(!((/* INLINE-ARGS */V98)==(car(V99)))){
  708.     goto T226;}
  709.     base[3]= (V89);
  710.     base[4]= (V90);
  711.     base[5]= (V91);
  712.     V100= list(2,VV[20],car((V92)));
  713.     base[7]= (V92);
  714.     base[8]= small_fixnum(2);
  715.     vs_top=(vs_base=base+7)+2;
  716.     Lbutlast();
  717.     vs_top=sup;
  718.     V101= vs_base[0];
  719.     V102= cdr(V101);
  720.     base[8]= (V92);
  721.     vs_top=(vs_base=base+8)+1;
  722.     Lbutlast();
  723.     vs_top=sup;
  724.     base[7]= vs_base[0];
  725.     vs_top=(vs_base=base+7)+1;
  726.     Llast();
  727.     vs_top=sup;
  728.     V103= vs_base[0];
  729.     V104= car(V103);
  730.     base[7]= (V92);
  731.     vs_top=(vs_base=base+7)+1;
  732.     Llast();
  733.     vs_top=sup;
  734.     V105= vs_base[0];
  735.     V106= list(3,VV[42],/* INLINE-ARGS */V104,list(2,VV[43],car(V105)));
  736.     V107= make_cons(/* INLINE-ARGS */V106,Cnil);
  737.     base[6]= listA(3,VV[41],/* INLINE-ARGS */V100,append(/* INLINE-ARGS */V102,/* INLINE-ARGS */V107));
  738.     base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93)));
  739.     vs_top=(vs_base=base+3)+5;
  740.     return;
  741. T226:;
  742.     base[3]= VV[44];
  743.     base[4]= (V87);
  744.     vs_top=(vs_base=base+3)+2;
  745.     Lerror();
  746.     return;}
  747.     }
  748. }
  749. /*    function definition for G1062    */
  750.  
  751. static L9()
  752. {register object *base=vs_base;
  753.     register object *sup=base+VM9; VC9
  754.     vs_reserve(VM9);
  755.     {object V108;
  756.     object V109;
  757.     object V110;
  758.     check_arg(3);
  759.     V108=(base[0]);
  760.     V109=(base[1]);
  761.     V110=(base[2]);
  762.     vs_top=sup;
  763. TTL:;
  764.     {object V111;
  765.     object V112;
  766.     object V113;
  767.     object V114;
  768.     object V115;
  769.     base[3]= (V109);
  770.     base[4]= (V108);
  771.     vs_top=(vs_base=base+3)+2;
  772.     (void) (*Lnk97)();
  773.     if(vs_base>=vs_top){vs_top=sup;goto T251;}
  774.     V111= vs_base[0];
  775.     vs_base++;
  776.     if(vs_base>=vs_top){vs_top=sup;goto T252;}
  777.     V112= vs_base[0];
  778.     vs_base++;
  779.     if(vs_base>=vs_top){vs_top=sup;goto T253;}
  780.     V113= vs_base[0];
  781.     vs_base++;
  782.     if(vs_base>=vs_top){vs_top=sup;goto T254;}
  783.     V114= vs_base[0];
  784.     vs_base++;
  785.     if(vs_base>=vs_top){vs_top=sup;goto T255;}
  786.     V115= vs_base[0];
  787.     vs_top=sup;
  788.     goto T256;
  789. T251:;
  790.     V111= Cnil;
  791. T252:;
  792.     V112= Cnil;
  793. T253:;
  794.     V113= Cnil;
  795. T254:;
  796.     V114= Cnil;
  797. T255:;
  798.     V115= Cnil;
  799. T256:;
  800.     {object V116;
  801.     object V117;
  802.     object V118;
  803.     vs_base=vs_top;
  804.     Lgensym();
  805.     vs_top=sup;
  806.     V116= vs_base[0];
  807.     vs_base=vs_top;
  808.     Lgensym();
  809.     vs_top=sup;
  810.     V117= vs_base[0];
  811.     V118= car((V113));
  812.     base[3]= make_cons((V116),(V111));
  813.     base[4]= make_cons((V110),(V112));
  814.     base[5]= make_cons((V117),Cnil);
  815.     V119= list(2,(V118),list(4,VV[45],(V115),(V116),(V117)));
  816.     base[6]= list(4,VV[36],make_cons(/* INLINE-ARGS */V119,Cnil),(V114),(V117));
  817.     base[7]= list(3,VV[46],(V115),(V116));
  818.     vs_top=(vs_base=base+3)+5;
  819.     return;}}
  820.     }
  821. }
  822. /*    function definition for G1064    */
  823.  
  824. static L10()
  825. {register object *base=vs_base;
  826.     register object *sup=base+VM10; VC10
  827.     vs_reserve(VM10);
  828.     {object V120;
  829.     object V121;
  830.     object V122;
  831.     check_arg(3);
  832.     V120=(base[0]);
  833.     V121=(base[1]);
  834.     V122=(base[2]);
  835.     vs_top=sup;
  836. TTL:;
  837.     {object V123;
  838.     object V124;
  839.     object V125;
  840.     object V126;
  841.     object V127;
  842.     base[3]= (V122);
  843.     base[4]= (V120);
  844.     vs_top=(vs_base=base+3)+2;
  845.     (void) (*Lnk97)();
  846.     if(vs_base>=vs_top){vs_top=sup;goto T268;}
  847.     V123= vs_base[0];
  848.     vs_base++;
  849.     if(vs_base>=vs_top){vs_top=sup;goto T269;}
  850.     V124= vs_base[0];
  851.     vs_base++;
  852.     if(vs_base>=vs_top){vs_top=sup;goto T270;}
  853.     V125= vs_base[0];
  854.     vs_base++;
  855.     if(vs_base>=vs_top){vs_top=sup;goto T271;}
  856.     V126= vs_base[0];
  857.     vs_base++;
  858.     if(vs_base>=vs_top){vs_top=sup;goto T272;}
  859.     V127= vs_base[0];
  860.     vs_top=sup;
  861.     goto T273;
  862. T268:;
  863.     V123= Cnil;
  864. T269:;
  865.     V124= Cnil;
  866. T270:;
  867.     V125= Cnil;
  868. T271:;
  869.     V126= Cnil;
  870. T272:;
  871.     V127= Cnil;
  872. T273:;
  873.     {object V128;
  874.     object V129;
  875.     object V130;
  876.     vs_base=vs_top;
  877.     Lgensym();
  878.     vs_top=sup;
  879.     V128= vs_base[0];
  880.     vs_base=vs_top;
  881.     Lgensym();
  882.     vs_top=sup;
  883.     V129= vs_base[0];
  884.     V130= car((V125));
  885.     base[3]= make_cons((V128),(V123));
  886.     base[4]= make_cons((V121),(V124));
  887.     base[5]= make_cons((V129),Cnil);
  888.     V131= list(2,(V130),list(4,VV[47],(V129),(V128),(V127)));
  889.     base[6]= list(4,VV[36],make_cons(/* INLINE-ARGS */V131,Cnil),(V126),(V129));
  890.     base[7]= list(3,VV[48],(V128),(V127));
  891.     vs_top=(vs_base=base+3)+5;
  892.     return;}}
  893.     }
  894. }
  895. /*    function definition for G1066    */
  896.  
  897. static L11()
  898. {register object *base=vs_base;
  899.     register object *sup=base+VM11; VC11
  900.     vs_reserve(VM11);
  901.     {object V132;
  902.     object V133;
  903.     object V134;
  904.     check_arg(3);
  905.     V132=(base[0]);
  906.     V133=(base[1]);
  907.     V134=(base[2]);
  908.     vs_top=sup;
  909. TTL:;
  910.     {object V135;
  911.     object V136;
  912.     object V137;
  913.     object V138;
  914.     object V139;
  915.     base[3]= (V134);
  916.     base[4]= (V132);
  917.     vs_top=(vs_base=base+3)+2;
  918.     (void) (*Lnk97)();
  919.     if(vs_base>=vs_top){vs_top=sup;goto T285;}
  920.     V135= vs_base[0];
  921.     vs_base++;
  922.     if(vs_base>=vs_top){vs_top=sup;goto T286;}
  923.     V136= vs_base[0];
  924.     vs_base++;
  925.     if(vs_base>=vs_top){vs_top=sup;goto T287;}
  926.     V137= vs_base[0];
  927.     vs_base++;
  928.     if(vs_base>=vs_top){vs_top=sup;goto T288;}
  929.     V138= vs_base[0];
  930.     vs_base++;
  931.     if(vs_base>=vs_top){vs_top=sup;goto T289;}
  932.     V139= vs_base[0];
  933.     vs_top=sup;
  934.     goto T290;
  935. T285:;
  936.     V135= Cnil;
  937. T286:;
  938.     V136= Cnil;
  939. T287:;
  940.     V137= Cnil;
  941. T288:;
  942.     V138= Cnil;
  943. T289:;
  944.     V139= Cnil;
  945. T290:;
  946.     {object V140;
  947.     object V141;
  948.     object V142;
  949.     vs_base=vs_top;
  950.     Lgensym();
  951.     vs_top=sup;
  952.     V140= vs_base[0];
  953.     vs_base=vs_top;
  954.     Lgensym();
  955.     vs_top=sup;
  956.     V141= vs_base[0];
  957.     V142= car((V137));
  958.     base[3]= make_cons((V140),(V135));
  959.     base[4]= make_cons((V133),(V136));
  960.     base[5]= make_cons((V141),Cnil);
  961.     V143= list(2,(V142),list(4,VV[49],(V141),(V140),(V139)));
  962.     base[6]= list(4,VV[36],make_cons(/* INLINE-ARGS */V143,Cnil),(V138),(V141));
  963.     base[7]= list(3,VV[50],(V140),(V139));
  964.     vs_top=(vs_base=base+3)+5;
  965.     return;}}
  966.     }
  967. }
  968. /*    local entry for function SETF-EXPAND-1    */
  969.  
  970. static object LI12(V147,V148,V149)
  971.  
  972. register object V147;register object V148;register object V149;
  973. {     VMB12 VMS12 VMV12
  974. TTL:;
  975.     {register object V150;
  976.     V150= Cnil;
  977.     if(!(type_of((V147))==t_cons)){
  978.     goto T300;}
  979.     if(!((car((V147)))==(VV[39]))){
  980.     goto T300;}
  981.     {object V151;
  982.     V151= caddr((V147));
  983.     V148= list(3,VV[39],cadr((V147)),(V148));
  984.     V147= (V151);}
  985.     goto TTL;
  986. T300:;
  987.     if(!(type_of((V147))==t_symbol)){
  988.     goto T309;}
  989.     {object V152 = list(3,VV[27],(V147),(V148));
  990.     VMR12(V152)}
  991. T309:;
  992.     if(!(type_of((V147))==t_cons)){
  993.     goto T312;}
  994.     if((get(car((V147)),VV[33],Cnil))!=Cnil){
  995.     goto T312;}
  996.     if((get(car((V147)),VV[31],Cnil))!=Cnil){
  997.     goto T312;}
  998.     base[0]= (V147);
  999.     base[1]= (V149);
  1000.     vs_top=(vs_base=base+0)+2;
  1001.     Lmacroexpand();
  1002.     if(vs_base<vs_top){
  1003.     V147= vs_base[0];
  1004.     vs_base++;
  1005.     }else{
  1006.     V147= Cnil;}
  1007.     if(vs_base<vs_top){
  1008.     V150= vs_base[0];
  1009.     }else{
  1010.     V150= Cnil;}
  1011.     vs_top=sup;
  1012.     if(((V150))==Cnil){
  1013.     goto T312;}
  1014.     goto TTL;
  1015. T312:;
  1016.     if(!(type_of(car((V147)))==t_symbol)){
  1017.     goto T329;}
  1018.     V150= get(car((V147)),VV[31],Cnil);
  1019.     if(((V150))==Cnil){
  1020.     goto T329;}
  1021.     V153= cdr((V147));
  1022.     V154= make_cons((V148),Cnil);
  1023.     V155= append(/* INLINE-ARGS */V153,/* INLINE-ARGS */V154);
  1024.     {object V156 = make_cons((V150),/* INLINE-ARGS */V155);
  1025.     VMR12(V156)}
  1026. T329:;
  1027.     if(!(type_of(car((V147)))==t_symbol)){
  1028.     goto T335;}
  1029.     V150= get(car((V147)),VV[32],Cnil);
  1030.     if(((V150))==Cnil){
  1031.     goto T335;}
  1032.     {object V157 = (*(LnkLI96))(cadr((V147)),car((V150)),cdr((V150)),(V148));
  1033.     VMR12(V157)}
  1034. T335:;
  1035.     {object V158;
  1036.     object V159;
  1037.     object V160;
  1038.     object V161;
  1039.     object V162;
  1040.     base[0]= (V147);
  1041.     base[1]= (V149);
  1042.     vs_top=(vs_base=base+0)+2;
  1043.     (void) (*Lnk97)();
  1044.     if(vs_base>=vs_top){vs_top=sup;goto T344;}
  1045.     V158= vs_base[0];
  1046.     vs_base++;
  1047.     if(vs_base>=vs_top){vs_top=sup;goto T345;}
  1048.     V159= vs_base[0];
  1049.     vs_base++;
  1050.     if(vs_base>=vs_top){vs_top=sup;goto T346;}
  1051.     V160= vs_base[0];
  1052.     vs_base++;
  1053.     if(vs_base>=vs_top){vs_top=sup;goto T347;}
  1054.     V161= vs_base[0];
  1055.     vs_base++;
  1056.     if(vs_base>=vs_top){vs_top=sup;goto T348;}
  1057.     V162= vs_base[0];
  1058.     vs_top=sup;
  1059.     goto T349;
  1060. T344:;
  1061.     V158= Cnil;
  1062. T345:;
  1063.     V159= Cnil;
  1064. T346:;
  1065.     V160= Cnil;
  1066. T347:;
  1067.     V161= Cnil;
  1068. T348:;
  1069.     V162= Cnil;
  1070. T349:;
  1071.     V167= append((V158),(V160));
  1072.     V168= make_cons((V148),Cnil);
  1073.     V169= append((V159),/* INLINE-ARGS */V168);
  1074.     {object V164;
  1075.     object V165= /* INLINE-ARGS */V167;
  1076.     object V166= /* INLINE-ARGS */V169;
  1077.     if(endp(V165)||endp(V166)){
  1078.     V163= Cnil;
  1079.     goto T350;}
  1080.     base[0]=V164=MMcons(Cnil,Cnil);
  1081. T351:;
  1082.     (V164->c.c_car)= list(2,(V165->c.c_car),(V166->c.c_car));
  1083.     if(endp(V165=MMcdr(V165))||endp(V166=MMcdr(V166))){
  1084.     V163= base[0];
  1085.     goto T350;}
  1086.     V164=MMcdr(V164)=MMcons(Cnil,Cnil);
  1087.     goto T351;}
  1088. T350:;
  1089.     {object V170 = list(3,VV[51],V163,(V161));
  1090.     VMR12(V170)}}}
  1091. }
  1092. /*    local entry for function SETF-STRUCTURE-ACCESS    */
  1093.  
  1094. static object LI13(V175,V176,V177,V178)
  1095.  
  1096. object V175;object V176;object V177;object V178;
  1097. {     VMB13 VMS13 VMV13
  1098. TTL:;
  1099.     {object V179= (V176);
  1100.     if((V179!= VV[43]))goto T353;
  1101.     {object V180 = list(4,VV[52],(V175),(V177),(V178));
  1102.     VMR13(V180)}
  1103. T353:;
  1104.     if((V179!= VV[98]))goto T354;
  1105.     {object V181 = list(4,VV[53],(V175),(V177),(V178));
  1106.     VMR13(V181)}
  1107. T354:;
  1108.     {object V182 = list(5,VV[54],(V175),list(2,VV[3],(V176)),(V177),(V178));
  1109.     VMR13(V182)}}
  1110. }
  1111. /*    local entry for function SETF-EXPAND    */
  1112.  
  1113. static object LI14(V185,V186)
  1114.  
  1115. register object V185;object V186;
  1116. {     VMB14 VMS14 VMV14
  1117. TTL:;
  1118.     if(!(endp((V185)))){
  1119.     goto T356;}
  1120.     {object V187 = Cnil;
  1121.     VMR14(V187)}
  1122. T356:;
  1123.     if(!(endp(cdr((V185))))){
  1124.     goto T359;}
  1125.     base[0]= VV[55];
  1126.     base[1]= (V185);
  1127.     vs_top=(vs_base=base+0)+2;
  1128.     Lerror();
  1129.     vs_top=sup;
  1130.     {object V188 = vs_base[0];
  1131.     VMR14(V188)}
  1132. T359:;
  1133.     V189= (*(LnkLI99))(car((V185)),cadr((V185)),(V186));
  1134.     V190= (*(LnkLI100))(cddr((V185)),(V186));
  1135.     {object V191 = make_cons(/* INLINE-ARGS */V189,/* INLINE-ARGS */V190);
  1136.     VMR14(V191)}
  1137. }
  1138. /*    local entry for function SETF-HELPER    */
  1139.  
  1140. static object LI15(V194,V195)
  1141.  
  1142. register object V194;object V195;
  1143. {     VMB15 VMS15 VMV15
  1144. TTL:;
  1145.     V194= cdr((V194));
  1146.     if(!(endp((V194)))){
  1147.     goto T366;}
  1148.     {object V196 = Cnil;
  1149.     VMR15(V196)}
  1150. T366:;
  1151.     if(!(endp(cdr((V194))))){
  1152.     goto T369;}
  1153.     base[0]= VV[56];
  1154.     base[1]= (V194);
  1155.     vs_top=(vs_base=base+0)+2;
  1156.     Lerror();
  1157.     vs_top=sup;
  1158.     {object V197 = vs_base[0];
  1159.     VMR15(V197)}
  1160. T369:;
  1161.     if(!(endp(cddr((V194))))){
  1162.     goto T374;}
  1163.     {object V198 = (*(LnkLI99))(car((V194)),cadr((V194)),(V195));
  1164.     VMR15(V198)}
  1165. T374:;
  1166.     V199= (*(LnkLI100))((V194),(V195));
  1167.     {object V200 = make_cons(VV[57],/* INLINE-ARGS */V199);
  1168.     VMR15(V200)}
  1169. }
  1170. /*    macro definition for PSETF    */
  1171.  
  1172. static L16()
  1173. {register object *base=vs_base;
  1174.     register object *sup=base+VM16; VC16
  1175.     vs_reserve(VM16);
  1176.     check_arg(2);
  1177.     vs_top=sup;
  1178.     {object V201=base[0]->c.c_cdr;
  1179.     base[2]= V201;}
  1180.     if(!(endp(base[2]))){
  1181.     goto T377;}
  1182.     base[3]= Cnil;
  1183.     vs_top=(vs_base=base+3)+1;
  1184.     return;
  1185. T377:;
  1186.     if(!(endp(cdr(base[2])))){
  1187.     goto T380;}
  1188.     base[3]= VV[58];
  1189.     base[4]= base[2];
  1190.     vs_top=(vs_base=base+3)+2;
  1191.     Lerror();
  1192.     return;
  1193. T380:;
  1194.     if(!(endp(cddr(base[2])))){
  1195.     goto T385;}
  1196.     V202= (*(LnkLI99))(car(base[2]),cadr(base[2]),base[1]);
  1197.     base[3]= list(3,VV[57],/* INLINE-ARGS */V202,Cnil);
  1198.     vs_top=(vs_base=base+3)+1;
  1199.     return;
  1200. T385:;
  1201.     {register object V203;
  1202.     register object V204;
  1203.     register object V205;
  1204.     V203= base[2];
  1205.     V204= Cnil;
  1206.     V205= Cnil;
  1207. T388:;
  1208.     if(!(endp((V203)))){
  1209.     goto T389;}
  1210.     V206= nreverse((V205));
  1211.     base[3]= listA(3,VV[51],(V204),append(/* INLINE-ARGS */V206,VV[59]));
  1212.     vs_top=(vs_base=base+3)+1;
  1213.     return;
  1214. T389:;
  1215.     if(!(endp(cdr((V203))))){
  1216.     goto T393;}
  1217.     base[3]= VV[60];
  1218.     base[4]= base[2];
  1219.     vs_top=(vs_base=base+3)+2;
  1220.     Lerror();
  1221.     vs_top=sup;
  1222. T393:;
  1223.     {register object V207;
  1224.     register object V208;
  1225.     register object V209;
  1226.     register object V210;
  1227.     register object V211;
  1228.     base[3]= car((V203));
  1229.     base[4]= base[1];
  1230.     vs_top=(vs_base=base+3)+2;
  1231.     (void) (*Lnk97)();
  1232.     if(vs_base>=vs_top){vs_top=sup;goto T402;}
  1233.     V207= vs_base[0];
  1234.     vs_base++;
  1235.     if(vs_base>=vs_top){vs_top=sup;goto T403;}
  1236.     V208= vs_base[0];
  1237.     vs_base++;
  1238.     if(vs_base>=vs_top){vs_top=sup;goto T404;}
  1239.     V209= vs_base[0];
  1240.     vs_base++;
  1241.     if(vs_base>=vs_top){vs_top=sup;goto T405;}
  1242.     V210= vs_base[0];
  1243.     vs_base++;
  1244.     if(vs_base>=vs_top){vs_top=sup;goto T406;}
  1245.     V211= vs_base[0];
  1246.     vs_top=sup;
  1247.     goto T407;
  1248. T402:;
  1249.     V207= Cnil;
  1250. T403:;
  1251.     V208= Cnil;
  1252. T404:;
  1253.     V209= Cnil;
  1254. T405:;
  1255.     V210= Cnil;
  1256. T406:;
  1257.     V211= Cnil;
  1258. T407:;
  1259.     V205= make_cons((V210),(V205));
  1260.     V216= append((V207),(V209));
  1261.     V217= make_cons(cadr((V203)),Cnil);
  1262.     V218= append((V208),/* INLINE-ARGS */V217);
  1263.     {object V213;
  1264.     object V214= /* INLINE-ARGS */V216;
  1265.     object V215= /* INLINE-ARGS */V218;
  1266.     if(endp(V214)||endp(V215)){
  1267.     V212= Cnil;
  1268.     goto T411;}
  1269.     base[3]=V213=MMcons(Cnil,Cnil);
  1270. T412:;
  1271.     (V213->c.c_car)= list(2,(V214->c.c_car),(V215->c.c_car));
  1272.     if(endp(V214=MMcdr(V214))||endp(V215=MMcdr(V215))){
  1273.     V212= base[3];
  1274.     goto T411;}
  1275.     V213=MMcdr(V213)=MMcons(Cnil,Cnil);
  1276.     goto T412;}
  1277. T411:;
  1278.     V204= nconc((V204),V212);}
  1279.     V203= cddr((V203));
  1280.     goto T388;}
  1281. }
  1282. /*    macro definition for SHIFTF    */
  1283.  
  1284. static L17()
  1285. {register object *base=vs_base;
  1286.     register object *sup=base+VM17; VC17
  1287.     vs_reserve(VM17);
  1288.     check_arg(2);
  1289.     vs_top=sup;
  1290.     {object V219=base[0]->c.c_cdr;
  1291.     base[2]= V219;}
  1292.     {register object V220;
  1293.     register object V221;
  1294.     register object V222;
  1295.     register object V223;
  1296.     register object V224;
  1297.     register object V225;
  1298.     vs_base=vs_top;
  1299.     Lgensym();
  1300.     vs_top=sup;
  1301.     V224= vs_base[0];
  1302.     V220= base[2];
  1303.     V221= Cnil;
  1304.     V222= Cnil;
  1305.     V223= Cnil;
  1306.     V225= Cnil;
  1307. T419:;
  1308.     if(!(endp(cdr((V220))))){
  1309.     goto T420;}
  1310.     V222= nreverse((V222));
  1311.     V223= nreverse((V223));
  1312.     V225= nreverse((V225));
  1313.     base[3]= (V221);
  1314.     V227= list(2,(V224),car((V225)));
  1315.     base[4]= make_cons(/* INLINE-ARGS */V227,Cnil);
  1316.     {object V228;
  1317.     object V229= (V222);
  1318.     object V230= cdr((V225));
  1319.     if(endp(V229)||endp(V230)){
  1320.     base[5]= Cnil;
  1321.     goto T432;}
  1322.     base[6]=V228=MMcons(Cnil,Cnil);
  1323. T433:;
  1324.     (V228->c.c_car)= list(2,(V229->c.c_car),(V230->c.c_car));
  1325.     if(endp(V229=MMcdr(V229))||endp(V230=MMcdr(V230))){
  1326.     base[5]= base[6];
  1327.     goto T432;}
  1328.     V228=MMcdr(V228)=MMcons(Cnil,Cnil);
  1329.     goto T433;}
  1330. T432:;
  1331.     base[7]= (V222);
  1332.     vs_top=(vs_base=base+7)+1;
  1333.     Llast();
  1334.     vs_top=sup;
  1335.     V231= vs_base[0];
  1336.     V232= list(2,car(V231),car((V220)));
  1337.     base[6]= make_cons(/* INLINE-ARGS */V232,Cnil);
  1338.     vs_top=(vs_base=base+3)+4;
  1339.     Lnconc();
  1340.     vs_top=sup;
  1341.     V226= vs_base[0];
  1342.     V233= make_cons((V224),Cnil);
  1343.     base[3]= listA(3,VV[51],V226,append((V223),/* INLINE-ARGS */V233));
  1344.     vs_top=(vs_base=base+3)+1;
  1345.     return;
  1346. T420:;
  1347.     {register object V234;
  1348.     register object V235;
  1349.     register object V236;
  1350.     register object V237;
  1351.     register object V238;
  1352.     base[3]= car((V220));
  1353.     base[4]= base[1];
  1354.     vs_top=(vs_base=base+3)+2;
  1355.     (void) (*Lnk97)();
  1356.     if(vs_base>=vs_top){vs_top=sup;goto T443;}
  1357.     V234= vs_base[0];
  1358.     vs_base++;
  1359.     if(vs_base>=vs_top){vs_top=sup;goto T444;}
  1360.     V235= vs_base[0];
  1361.     vs_base++;
  1362.     if(vs_base>=vs_top){vs_top=sup;goto T445;}
  1363.     V236= vs_base[0];
  1364.     vs_base++;
  1365.     if(vs_base>=vs_top){vs_top=sup;goto T446;}
  1366.     V237= vs_base[0];
  1367.     vs_base++;
  1368.     if(vs_base>=vs_top){vs_top=sup;goto T447;}
  1369.     V238= vs_base[0];
  1370.     vs_top=sup;
  1371.     goto T448;
  1372. T443:;
  1373.     V234= Cnil;
  1374. T444:;
  1375.     V235= Cnil;
  1376. T445:;
  1377.     V236= Cnil;
  1378. T446:;
  1379.     V237= Cnil;
  1380. T447:;
  1381.     V238= Cnil;
  1382. T448:;
  1383.     {object V240;
  1384.     object V241= (V234);
  1385.     object V242= (V235);
  1386.     if(endp(V241)||endp(V242)){
  1387.     V239= Cnil;
  1388.     goto T451;}
  1389.     base[3]=V240=MMcons(Cnil,Cnil);
  1390. T452:;
  1391.     (V240->c.c_car)= list(2,(V241->c.c_car),(V242->c.c_car));
  1392.     if(endp(V241=MMcdr(V241))||endp(V242=MMcdr(V242))){
  1393.     V239= base[3];
  1394.     goto T451;}
  1395.     V240=MMcdr(V240)=MMcons(Cnil,Cnil);
  1396.     goto T452;}
  1397. T451:;
  1398.     V221= nconc((V221),V239);
  1399.     V222= make_cons(car((V236)),(V222));
  1400.     V223= make_cons((V237),(V223));
  1401.     V225= make_cons((V238),(V225));}
  1402.     V220= cdr((V220));
  1403.     goto T419;}
  1404. }
  1405. /*    macro definition for ROTATEF    */
  1406.  
  1407. static L18()
  1408. {register object *base=vs_base;
  1409.     register object *sup=base+VM18; VC18
  1410.     vs_reserve(VM18);
  1411.     check_arg(2);
  1412.     vs_top=sup;
  1413.     {object V243=base[0]->c.c_cdr;
  1414.     base[2]= V243;}
  1415.     {register object V244;
  1416.     register object V245;
  1417.     register object V246;
  1418.     register object V247;
  1419.     register object V248;
  1420.     V244= base[2];
  1421.     V245= Cnil;
  1422.     V246= Cnil;
  1423.     V247= Cnil;
  1424.     V248= Cnil;
  1425. T463:;
  1426.     if(!(endp((V244)))){
  1427.     goto T464;}
  1428.     V246= nreverse((V246));
  1429.     V247= nreverse((V247));
  1430.     V248= nreverse((V248));
  1431.     base[3]= (V245);
  1432.     {object V250;
  1433.     object V251= (V246);
  1434.     object V252= cdr((V248));
  1435.     if(endp(V251)||endp(V252)){
  1436.     base[4]= Cnil;
  1437.     goto T475;}
  1438.     base[5]=V250=MMcons(Cnil,Cnil);
  1439. T476:;
  1440.     (V250->c.c_car)= list(2,(V251->c.c_car),(V252->c.c_car));
  1441.     if(endp(V251=MMcdr(V251))||endp(V252=MMcdr(V252))){
  1442.     base[4]= base[5];
  1443.     goto T475;}
  1444.     V250=MMcdr(V250)=MMcons(Cnil,Cnil);
  1445.     goto T476;}
  1446. T475:;
  1447.     base[6]= (V246);
  1448.     vs_top=(vs_base=base+6)+1;
  1449.     Llast();
  1450.     vs_top=sup;
  1451.     V253= vs_base[0];
  1452.     V254= list(2,car(V253),car((V248)));
  1453.     base[5]= make_cons(/* INLINE-ARGS */V254,Cnil);
  1454.     vs_top=(vs_base=base+3)+3;
  1455.     Lnconc();
  1456.     vs_top=sup;
  1457.     V249= vs_base[0];
  1458.     base[3]= listA(3,VV[51],V249,append((V247),VV[61]));
  1459.     vs_top=(vs_base=base+3)+1;
  1460.     return;
  1461. T464:;
  1462.     {register object V255;
  1463.     register object V256;
  1464.     register object V257;
  1465.     register object V258;
  1466.     register object V259;
  1467.     base[3]= car((V244));
  1468.     base[4]= base[1];
  1469.     vs_top=(vs_base=base+3)+2;
  1470.     (void) (*Lnk97)();
  1471.     if(vs_base>=vs_top){vs_top=sup;goto T486;}
  1472.     V255= vs_base[0];
  1473.     vs_base++;
  1474.     if(vs_base>=vs_top){vs_top=sup;goto T487;}
  1475.     V256= vs_base[0];
  1476.     vs_base++;
  1477.     if(vs_base>=vs_top){vs_top=sup;goto T488;}
  1478.     V257= vs_base[0];
  1479.     vs_base++;
  1480.     if(vs_base>=vs_top){vs_top=sup;goto T489;}
  1481.     V258= vs_base[0];
  1482.     vs_base++;
  1483.     if(vs_base>=vs_top){vs_top=sup;goto T490;}
  1484.     V259= vs_base[0];
  1485.     vs_top=sup;
  1486.     goto T491;
  1487. T486:;
  1488.     V255= Cnil;
  1489. T487:;
  1490.     V256= Cnil;
  1491. T488:;
  1492.     V257= Cnil;
  1493. T489:;
  1494.     V258= Cnil;
  1495. T490:;
  1496.     V259= Cnil;
  1497. T491:;
  1498.     {object V261;
  1499.     object V262= (V255);
  1500.     object V263= (V256);
  1501.     if(endp(V262)||endp(V263)){
  1502.     V260= Cnil;
  1503.     goto T494;}
  1504.     base[3]=V261=MMcons(Cnil,Cnil);
  1505. T495:;
  1506.     (V261->c.c_car)= list(2,(V262->c.c_car),(V263->c.c_car));
  1507.     if(endp(V262=MMcdr(V262))||endp(V263=MMcdr(V263))){
  1508.     V260= base[3];
  1509.     goto T494;}
  1510.     V261=MMcdr(V261)=MMcons(Cnil,Cnil);
  1511.     goto T495;}
  1512. T494:;
  1513.     V245= nconc((V245),V260);
  1514.     V246= make_cons(car((V257)),(V246));
  1515.     V247= make_cons((V258),(V247));
  1516.     V248= make_cons((V259),(V248));}
  1517.     V244= cdr((V244));
  1518.     goto T463;}
  1519. }
  1520. /*    macro definition for DEFINE-MODIFY-MACRO    */
  1521.  
  1522. static L19()
  1523. {register object *base=vs_base;
  1524.     register object *sup=base+VM19; VC19
  1525.     vs_reserve(VM19);
  1526.     check_arg(2);
  1527.     vs_top=sup;
  1528.     {object V264=base[0]->c.c_cdr;
  1529.     if(endp(V264))invalid_macro_call();
  1530.     base[2]= (V264->c.c_car);
  1531.     V264=V264->c.c_cdr;
  1532.     if(endp(V264))invalid_macro_call();
  1533.     base[3]= (V264->c.c_car);
  1534.     V264=V264->c.c_cdr;
  1535.     if(endp(V264))invalid_macro_call();
  1536.     base[4]= (V264->c.c_car);
  1537.     V264=V264->c.c_cdr;
  1538.     if(endp(V264)){
  1539.     base[5]= Cnil;
  1540.     } else {
  1541.     base[5]= (V264->c.c_car);
  1542.     V264=V264->c.c_cdr;}
  1543.     if(!endp(V264))invalid_macro_call();}
  1544.     {object V265;
  1545.     {register object V266;
  1546.     register object V267;
  1547.     V266= base[3];
  1548.     V267= Cnil;
  1549. T508:;
  1550.     if(((V266))!=Cnil){
  1551.     goto T509;}
  1552.     V268= list(2,VV[3],base[4]);
  1553.     V265= listA(4,VV[43],/* INLINE-ARGS */V268,VV[62],nreverse((V267)));
  1554.     goto T506;
  1555. T509:;
  1556.     if((car((V266)))==(VV[63])){
  1557.     goto T513;}
  1558.     if(!((car((V266)))==(VV[64]))){
  1559.     goto T516;}
  1560.     V269= list(2,VV[3],base[4]);
  1561.     V270= nreverse((V267));
  1562.     V271= make_cons(cadr((V266)),Cnil);
  1563.     V265= listA(4,VV[65],/* INLINE-ARGS */V269,VV[62],append(/* INLINE-ARGS */V270,/* INLINE-ARGS */V271));
  1564.     goto T506;
  1565. T516:;
  1566.     if(!(type_of(car((V266)))==t_symbol)){
  1567.     goto T520;}
  1568.     V267= make_cons(car((V266)),(V267));
  1569.     goto T513;
  1570. T520:;
  1571.     V267= make_cons(caar((V266)),(V267));
  1572. T513:;
  1573.     V266= cdr((V266));
  1574.     goto T508;}
  1575. T506:;
  1576.     V272= listA(4,VV[67],VV[68],VV[69],base[3]);
  1577.     if((base[5])==Cnil){
  1578.     goto T529;}
  1579.     V273= make_cons(base[5],Cnil);
  1580.     goto T527;
  1581. T529:;
  1582.     V273= Cnil;
  1583. T527:;
  1584.     V274= list(3,VV[70],VV[71],list(3,VV[72],base[2],list(3,VV[36],VV[73],list(4,VV[43],VV[74],VV[69],(V265)))));
  1585.     V275= list(2,/* INLINE-ARGS */V274,list(4,VV[75],VV[76],VV[77],list(4,VV[43],VV[78],list(4,VV[79],VV[80],VV[81],list(3,VV[42],VV[82],list(2,VV[43],(V265)))),VV[83])));
  1586.     base[6]= listA(4,VV[66],base[2],/* INLINE-ARGS */V272,append(V273,/* INLINE-ARGS */V275));
  1587.     vs_top=(vs_base=base+6)+1;
  1588.     return;}
  1589. }
  1590. /*    macro definition for REMF    */
  1591.  
  1592. static L20()
  1593. {register object *base=vs_base;
  1594.     register object *sup=base+VM20; VC20
  1595.     vs_reserve(VM20);
  1596.     check_arg(2);
  1597.     vs_top=sup;
  1598.     {object V276=base[0]->c.c_cdr;
  1599.     if(endp(V276))invalid_macro_call();
  1600.     base[2]= (V276->c.c_car);
  1601.     V276=V276->c.c_cdr;
  1602.     if(endp(V276))invalid_macro_call();
  1603.     base[3]= (V276->c.c_car);
  1604.     V276=V276->c.c_cdr;
  1605.     if(!endp(V276))invalid_macro_call();}
  1606.     {object V277;
  1607.     object V278;
  1608.     object V279;
  1609.     object V280;
  1610.     object V281;
  1611.     base[4]= base[2];
  1612.     base[5]= base[1];
  1613.     vs_top=(vs_base=base+4)+2;
  1614.     (void) (*Lnk97)();
  1615.     if(vs_base>=vs_top){vs_top=sup;goto T534;}
  1616.     V277= vs_base[0];
  1617.     vs_base++;
  1618.     if(vs_base>=vs_top){vs_top=sup;goto T535;}
  1619.     V278= vs_base[0];
  1620.     vs_base++;
  1621.     if(vs_base>=vs_top){vs_top=sup;goto T536;}
  1622.     V279= vs_base[0];
  1623.     vs_base++;
  1624.     if(vs_base>=vs_top){vs_top=sup;goto T537;}
  1625.     V280= vs_base[0];
  1626.     vs_base++;
  1627.     if(vs_base>=vs_top){vs_top=sup;goto T538;}
  1628.     V281= vs_base[0];
  1629.     vs_top=sup;
  1630.     goto T539;
  1631. T534:;
  1632.     V277= Cnil;
  1633. T535:;
  1634.     V278= Cnil;
  1635. T536:;
  1636.     V279= Cnil;
  1637. T537:;
  1638.     V280= Cnil;
  1639. T538:;
  1640.     V281= Cnil;
  1641. T539:;
  1642.     {object V283;
  1643.     object V284= (V277);
  1644.     object V285= (V278);
  1645.     if(endp(V284)||endp(V285)){
  1646.     V282= Cnil;
  1647.     goto T540;}
  1648.     base[4]=V283=MMcons(Cnil,Cnil);
  1649. T541:;
  1650.     (V283->c.c_car)= list(2,(V284->c.c_car),(V285->c.c_car));
  1651.     if(endp(V284=MMcdr(V284))||endp(V285=MMcdr(V285))){
  1652.     V282= base[4];
  1653.     goto T540;}
  1654.     V283=MMcdr(V283)=MMcons(Cnil,Cnil);
  1655.     goto T541;}
  1656. T540:;
  1657.     V286= list(2,car((V279)),VV[84]);
  1658.     base[4]= list(3,VV[51],V282,list(5,VV[75],/* INLINE-ARGS */V286,list(3,VV[85],(V281),base[3]),(V280),VV[84]));
  1659.     vs_top=(vs_base=base+4)+1;
  1660.     return;}
  1661. }
  1662. /*    macro definition for INCF    */
  1663.  
  1664. static L21()
  1665. {register object *base=vs_base;
  1666.     register object *sup=base+VM21; VC21
  1667.     vs_reserve(VM21);
  1668.     check_arg(2);
  1669.     vs_top=sup;
  1670.     {object V287=base[0]->c.c_cdr;
  1671.     if(endp(V287))invalid_macro_call();
  1672.     base[2]= (V287->c.c_car);
  1673.     V287=V287->c.c_cdr;
  1674.     if(endp(V287)){
  1675.     base[3]= small_fixnum(1);
  1676.     } else {
  1677.     base[3]= (V287->c.c_car);
  1678.     V287=V287->c.c_cdr;}
  1679.     if(!endp(V287))invalid_macro_call();}
  1680.     if(!(type_of(base[2])==t_symbol)){
  1681.     goto T544;}
  1682.     base[4]= list(3,VV[27],base[2],list(3,VV[86],base[2],base[3]));
  1683.     vs_top=(vs_base=base+4)+1;
  1684.     return;
  1685. T544:;
  1686.     {object V289;
  1687.     object V290;
  1688.     object V291;
  1689.     object V292;
  1690.     object V293;
  1691.     base[4]= base[2];
  1692.     base[5]= base[1];
  1693.     vs_top=(vs_base=base+4)+2;
  1694.     (void) (*Lnk97)();
  1695.     if(vs_base>=vs_top){vs_top=sup;goto T550;}
  1696.     V289= vs_base[0];
  1697.     vs_base++;
  1698.     if(vs_base>=vs_top){vs_top=sup;goto T551;}
  1699.     V290= vs_base[0];
  1700.     vs_base++;
  1701.     if(vs_base>=vs_top){vs_top=sup;goto T552;}
  1702.     V291= vs_base[0];
  1703.     vs_base++;
  1704.     if(vs_base>=vs_top){vs_top=sup;goto T553;}
  1705.     V292= vs_base[0];
  1706.     vs_base++;
  1707.     if(vs_base>=vs_top){vs_top=sup;goto T554;}
  1708.     V293= vs_base[0];
  1709.     vs_top=sup;
  1710.     goto T555;
  1711. T550:;
  1712.     V289= Cnil;
  1713. T551:;
  1714.     V290= Cnil;
  1715. T552:;
  1716.     V291= Cnil;
  1717. T553:;
  1718.     V292= Cnil;
  1719. T554:;
  1720.     V293= Cnil;
  1721. T555:;
  1722.     V298= append((V289),(V291));
  1723.     V299= list(3,VV[86],(V293),base[3]);
  1724.     V300= make_cons(/* INLINE-ARGS */V299,Cnil);
  1725.     V301= append((V290),/* INLINE-ARGS */V300);
  1726.     {object V295;
  1727.     object V296= /* INLINE-ARGS */V298;
  1728.     object V297= /* INLINE-ARGS */V301;
  1729.     if(endp(V296)||endp(V297)){
  1730.     V294= Cnil;
  1731.     goto T556;}
  1732.     base[4]=V295=MMcons(Cnil,Cnil);
  1733. T557:;
  1734.     (V295->c.c_car)= list(2,(V296->c.c_car),(V297->c.c_car));
  1735.     if(endp(V296=MMcdr(V296))||endp(V297=MMcdr(V297))){
  1736.     V294= base[4];
  1737.     goto T556;}
  1738.     V295=MMcdr(V295)=MMcons(Cnil,Cnil);
  1739.     goto T557;}
  1740. T556:;
  1741.     base[4]= list(3,VV[51],V294,(V292));
  1742.     vs_top=(vs_base=base+4)+1;
  1743.     return;}
  1744. }
  1745. /*    macro definition for DECF    */
  1746.  
  1747. static L22()
  1748. {register object *base=vs_base;
  1749.     register object *sup=base+VM22; VC22
  1750.     vs_reserve(VM22);
  1751.     check_arg(2);
  1752.     vs_top=sup;
  1753.     {object V302=base[0]->c.c_cdr;
  1754.     if(endp(V302))invalid_macro_call();
  1755.     base[2]= (V302->c.c_car);
  1756.     V302=V302->c.c_cdr;
  1757.     if(endp(V302)){
  1758.     base[3]= small_fixnum(1);
  1759.     } else {
  1760.     base[3]= (V302->c.c_car);
  1761.     V302=V302->c.c_cdr;}
  1762.     if(!endp(V302))invalid_macro_call();}
  1763.     if(!(type_of(base[2])==t_symbol)){
  1764.     goto T560;}
  1765.     base[4]= list(3,VV[27],base[2],list(3,VV[87],base[2],base[3]));
  1766.     vs_top=(vs_base=base+4)+1;
  1767.     return;
  1768. T560:;
  1769.     {object V304;
  1770.     object V305;
  1771.     object V306;
  1772.     object V307;
  1773.     object V308;
  1774.     base[4]= base[2];
  1775.     base[5]= base[1];
  1776.     vs_top=(vs_base=base+4)+2;
  1777.     (void) (*Lnk97)();
  1778.     if(vs_base>=vs_top){vs_top=sup;goto T566;}
  1779.     V304= vs_base[0];
  1780.     vs_base++;
  1781.     if(vs_base>=vs_top){vs_top=sup;goto T567;}
  1782.     V305= vs_base[0];
  1783.     vs_base++;
  1784.     if(vs_base>=vs_top){vs_top=sup;goto T568;}
  1785.     V306= vs_base[0];
  1786.     vs_base++;
  1787.     if(vs_base>=vs_top){vs_top=sup;goto T569;}
  1788.     V307= vs_base[0];
  1789.     vs_base++;
  1790.     if(vs_base>=vs_top){vs_top=sup;goto T570;}
  1791.     V308= vs_base[0];
  1792.     vs_top=sup;
  1793.     goto T571;
  1794. T566:;
  1795.     V304= Cnil;
  1796. T567:;
  1797.     V305= Cnil;
  1798. T568:;
  1799.     V306= Cnil;
  1800. T569:;
  1801.     V307= Cnil;
  1802. T570:;
  1803.     V308= Cnil;
  1804. T571:;
  1805.     V313= append((V304),(V306));
  1806.     V314= list(3,VV[87],(V308),base[3]);
  1807.     V315= make_cons(/* INLINE-ARGS */V314,Cnil);
  1808.     V316= append((V305),/* INLINE-ARGS */V315);
  1809.     {object V310;
  1810.     object V311= /* INLINE-ARGS */V313;
  1811.     object V312= /* INLINE-ARGS */V316;
  1812.     if(endp(V311)||endp(V312)){
  1813.     V309= Cnil;
  1814.     goto T572;}
  1815.     base[4]=V310=MMcons(Cnil,Cnil);
  1816. T573:;
  1817.     (V310->c.c_car)= list(2,(V311->c.c_car),(V312->c.c_car));
  1818.     if(endp(V311=MMcdr(V311))||endp(V312=MMcdr(V312))){
  1819.     V309= base[4];
  1820.     goto T572;}
  1821.     V310=MMcdr(V310)=MMcons(Cnil,Cnil);
  1822.     goto T573;}
  1823. T572:;
  1824.     base[4]= list(3,VV[51],V309,(V307));
  1825.     vs_top=(vs_base=base+4)+1;
  1826.     return;}
  1827. }
  1828. /*    macro definition for PUSH    */
  1829.  
  1830. static L23()
  1831. {register object *base=vs_base;
  1832.     register object *sup=base+VM23; VC23
  1833.     vs_reserve(VM23);
  1834.     check_arg(2);
  1835.     vs_top=sup;
  1836.     {object V317=base[0]->c.c_cdr;
  1837.     if(endp(V317))invalid_macro_call();
  1838.     base[2]= (V317->c.c_car);
  1839.     V317=V317->c.c_cdr;
  1840.     if(endp(V317))invalid_macro_call();
  1841.     base[3]= (V317->c.c_car);
  1842.     V317=V317->c.c_cdr;
  1843.     if(!endp(V317))invalid_macro_call();}
  1844.     if(!(type_of(base[3])==t_symbol)){
  1845.     goto T575;}
  1846.     base[4]= list(3,VV[27],base[3],list(3,VV[88],base[2],base[3]));
  1847.     vs_top=(vs_base=base+4)+1;
  1848.     return;
  1849. T575:;
  1850.     {object V318;
  1851.     object V319;
  1852.     object V320;
  1853.     object V321;
  1854.     object V322;
  1855.     base[4]= base[3];
  1856.     base[5]= base[1];
  1857.     vs_top=(vs_base=base+4)+2;
  1858.     (void) (*Lnk97)();
  1859.     if(vs_base>=vs_top){vs_top=sup;goto T581;}
  1860.     V318= vs_base[0];
  1861.     vs_base++;
  1862.     if(vs_base>=vs_top){vs_top=sup;goto T582;}
  1863.     V319= vs_base[0];
  1864.     vs_base++;
  1865.     if(vs_base>=vs_top){vs_top=sup;goto T583;}
  1866.     V320= vs_base[0];
  1867.     vs_base++;
  1868.     if(vs_base>=vs_top){vs_top=sup;goto T584;}
  1869.     V321= vs_base[0];
  1870.     vs_base++;
  1871.     if(vs_base>=vs_top){vs_top=sup;goto T585;}
  1872.     V322= vs_base[0];
  1873.     vs_top=sup;
  1874.     goto T586;
  1875. T581:;
  1876.     V318= Cnil;
  1877. T582:;
  1878.     V319= Cnil;
  1879. T583:;
  1880.     V320= Cnil;
  1881. T584:;
  1882.     V321= Cnil;
  1883. T585:;
  1884.     V322= Cnil;
  1885. T586:;
  1886.     V327= append((V318),(V320));
  1887.     V328= list(3,VV[88],base[2],(V322));
  1888.     V329= make_cons(/* INLINE-ARGS */V328,Cnil);
  1889.     V330= append((V319),/* INLINE-ARGS */V329);
  1890.     {object V324;
  1891.     object V325= /* INLINE-ARGS */V327;
  1892.     object V326= /* INLINE-ARGS */V330;
  1893.     if(endp(V325)||endp(V326)){
  1894.     V323= Cnil;
  1895.     goto T587;}
  1896.     base[4]=V324=MMcons(Cnil,Cnil);
  1897. T588:;
  1898.     (V324->c.c_car)= list(2,(V325->c.c_car),(V326->c.c_car));
  1899.     if(endp(V325=MMcdr(V325))||endp(V326=MMcdr(V326))){
  1900.     V323= base[4];
  1901.     goto T587;}
  1902.     V324=MMcdr(V324)=MMcons(Cnil,Cnil);
  1903.     goto T588;}
  1904. T587:;
  1905.     base[4]= list(3,VV[51],V323,(V321));
  1906.     vs_top=(vs_base=base+4)+1;
  1907.     return;}
  1908. }
  1909. /*    macro definition for PUSHNEW    */
  1910.  
  1911. static L24()
  1912. {register object *base=vs_base;
  1913.     register object *sup=base+VM24; VC24
  1914.     vs_reserve(VM24);
  1915.     check_arg(2);
  1916.     vs_top=sup;
  1917.     {object V331=base[0]->c.c_cdr;
  1918.     if(endp(V331))invalid_macro_call();
  1919.     base[2]= (V331->c.c_car);
  1920.     V331=V331->c.c_cdr;
  1921.     if(endp(V331))invalid_macro_call();
  1922.     base[3]= (V331->c.c_car);
  1923.     V331=V331->c.c_cdr;
  1924.     base[4]= V331;}
  1925.     if(!(type_of(base[3])==t_symbol)){
  1926.     goto T590;}
  1927.     base[5]= list(3,VV[27],base[3],listA(4,VV[89],base[2],base[3],base[4]));
  1928.     vs_top=(vs_base=base+5)+1;
  1929.     return;
  1930. T590:;
  1931.     {object V332;
  1932.     object V333;
  1933.     object V334;
  1934.     object V335;
  1935.     object V336;
  1936.     base[5]= base[3];
  1937.     base[6]= base[1];
  1938.     vs_top=(vs_base=base+5)+2;
  1939.     (void) (*Lnk97)();
  1940.     if(vs_base>=vs_top){vs_top=sup;goto T596;}
  1941.     V332= vs_base[0];
  1942.     vs_base++;
  1943.     if(vs_base>=vs_top){vs_top=sup;goto T597;}
  1944.     V333= vs_base[0];
  1945.     vs_base++;
  1946.     if(vs_base>=vs_top){vs_top=sup;goto T598;}
  1947.     V334= vs_base[0];
  1948.     vs_base++;
  1949.     if(vs_base>=vs_top){vs_top=sup;goto T599;}
  1950.     V335= vs_base[0];
  1951.     vs_base++;
  1952.     if(vs_base>=vs_top){vs_top=sup;goto T600;}
  1953.     V336= vs_base[0];
  1954.     vs_top=sup;
  1955.     goto T601;
  1956. T596:;
  1957.     V332= Cnil;
  1958. T597:;
  1959.     V333= Cnil;
  1960. T598:;
  1961.     V334= Cnil;
  1962. T599:;
  1963.     V335= Cnil;
  1964. T600:;
  1965.     V336= Cnil;
  1966. T601:;
  1967.     V341= append((V332),(V334));
  1968.     V342= listA(4,VV[89],base[2],(V336),base[4]);
  1969.     V343= make_cons(/* INLINE-ARGS */V342,Cnil);
  1970.     V344= append((V333),/* INLINE-ARGS */V343);
  1971.     {object V338;
  1972.     object V339= /* INLINE-ARGS */V341;
  1973.     object V340= /* INLINE-ARGS */V344;
  1974.     if(endp(V339)||endp(V340)){
  1975.     V337= Cnil;
  1976.     goto T602;}
  1977.     base[5]=V338=MMcons(Cnil,Cnil);
  1978. T603:;
  1979.     (V338->c.c_car)= list(2,(V339->c.c_car),(V340->c.c_car));
  1980.     if(endp(V339=MMcdr(V339))||endp(V340=MMcdr(V340))){
  1981.     V337= base[5];
  1982.     goto T602;}
  1983.     V338=MMcdr(V338)=MMcons(Cnil,Cnil);
  1984.     goto T603;}
  1985. T602:;
  1986.     base[5]= list(3,VV[51],V337,(V335));
  1987.     vs_top=(vs_base=base+5)+1;
  1988.     return;}
  1989. }
  1990. /*    macro definition for POP    */
  1991.  
  1992. static L25()
  1993. {register object *base=vs_base;
  1994.     register object *sup=base+VM25; VC25
  1995.     vs_reserve(VM25);
  1996.     check_arg(2);
  1997.     vs_top=sup;
  1998.     {object V345=base[0]->c.c_cdr;
  1999.     if(endp(V345))invalid_macro_call();
  2000.     base[2]= (V345->c.c_car);
  2001.     V345=V345->c.c_cdr;
  2002.     if(!endp(V345))invalid_macro_call();}
  2003.     if(!(type_of(base[2])==t_symbol)){
  2004.     goto T605;}
  2005.     {object V346;
  2006.     vs_base=vs_top;
  2007.     Lgensym();
  2008.     vs_top=sup;
  2009.     V346= vs_base[0];
  2010.     V347= list(2,(V346),list(2,VV[90],base[2]));
  2011.     V348= make_cons(/* INLINE-ARGS */V347,Cnil);
  2012.     base[3]= list(4,VV[36],/* INLINE-ARGS */V348,list(3,VV[27],base[2],list(2,VV[91],base[2])),(V346));
  2013.     vs_top=(vs_base=base+3)+1;
  2014.     return;}
  2015. T605:;
  2016.     {object V349;
  2017.     object V350;
  2018.     object V351;
  2019.     object V352;
  2020.     object V353;
  2021.     base[3]= base[2];
  2022.     base[4]= base[1];
  2023.     vs_top=(vs_base=base+3)+2;
  2024.     (void) (*Lnk97)();
  2025.     if(vs_base>=vs_top){vs_top=sup;goto T612;}
  2026.     V349= vs_base[0];
  2027.     vs_base++;
  2028.     if(vs_base>=vs_top){vs_top=sup;goto T613;}
  2029.     V350= vs_base[0];
  2030.     vs_base++;
  2031.     if(vs_base>=vs_top){vs_top=sup;goto T614;}
  2032.     V351= vs_base[0];
  2033.     vs_base++;
  2034.     if(vs_base>=vs_top){vs_top=sup;goto T615;}
  2035.     V352= vs_base[0];
  2036.     vs_base++;
  2037.     if(vs_base>=vs_top){vs_top=sup;goto T616;}
  2038.     V353= vs_base[0];
  2039.     vs_top=sup;
  2040.     goto T617;
  2041. T612:;
  2042.     V349= Cnil;
  2043. T613:;
  2044.     V350= Cnil;
  2045. T614:;
  2046.     V351= Cnil;
  2047. T615:;
  2048.     V352= Cnil;
  2049. T616:;
  2050.     V353= Cnil;
  2051. T617:;
  2052.     V358= append((V349),(V351));
  2053.     V359= list(2,VV[91],(V353));
  2054.     V360= make_cons(/* INLINE-ARGS */V359,Cnil);
  2055.     V361= append((V350),/* INLINE-ARGS */V360);
  2056.     {object V355;
  2057.     object V356= /* INLINE-ARGS */V358;
  2058.     object V357= /* INLINE-ARGS */V361;
  2059.     if(endp(V356)||endp(V357)){
  2060.     V354= Cnil;
  2061.     goto T618;}
  2062.     base[3]=V355=MMcons(Cnil,Cnil);
  2063. T619:;
  2064.     (V355->c.c_car)= list(2,(V356->c.c_car),(V357->c.c_car));
  2065.     if(endp(V356=MMcdr(V356))||endp(V357=MMcdr(V357))){
  2066.     V354= base[3];
  2067.     goto T618;}
  2068.     V355=MMcdr(V355)=MMcons(Cnil,Cnil);
  2069.     goto T619;}
  2070. T618:;
  2071.     base[3]= list(3,VV[51],V354,list(3,VV[92],list(2,VV[90],(V353)),(V352)));
  2072.     vs_top=(vs_base=base+3)+1;
  2073.     return;}
  2074. }
  2075. static object  LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],&LnkLI100,2,ap);} /* SETF-EXPAND */
  2076. static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],&LnkLI99,3,ap);} /* SETF-EXPAND-1 */
  2077. static LnkT97(){ call_or_link(VV[97],&Lnk97);} /* GET-SETF-METHOD */
  2078. static object  LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,4,ap);} /* SETF-STRUCTURE-ACCESS */
  2079. static LnkT95(){ call_or_link(VV[95],&Lnk95);} /* GET-SETF-METHOD-MULTIPLE-VALUE */
  2080. static LnkT94(){ call_or_link(VV[94],&Lnk94);} /* GET-&ENVIRONMENT */
  2081. static object  LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[93],&LnkLI93,1,ap);} /* FIND-DOCUMENTATION */
  2082.